         T     P  
@     
C      
C          $      h                            Fllungstr 1Fl./Ol.              L                    L       L       L       L       L       L              ! Door1 w/Transom /rewritten by VL 3/1/94/

if (b-4*d)-h>0.001 then 0   !*** maximize sidelite width
h= b-4*d
0:
h=b-d-h                              !*** h to transom height
if c>-0.001 then 111
c=C_                                   !*** frame thickness to wall thickness
111:
addz -c*E~
mulx -1
addx -a/2
call trans_frame a ,b, c, d, h

add d, b-d, c/4
rotz -90
if g=1 then 1
if g=2 then 2
goto 3
1: call sidelite_panel_A   h, a-2*d, c/2, d/2, e
goto 3
2: call sidelite_panel_E   h, a-2*d, c/2, d/2, e, 3
3:
del 2
9:
u=1 1/2"                 !***u=panel thickness
v=2"                        !***v=panel frame width
addx d
addz -u/3
if i>180.001 or i<-0.001 then 112
roty i
112:
a=a-2*d
b=b-(h+2*d)
if f=1 then 10
if f=2 then 20
if f=3 then 30
if f=4 then 40
if f=5 then 50
if f=6 then 60
if f=7 then 70
if f=8 then 80
if f=9 then 90
if f=10 then 100
if f=11 then 110
if f=12 then 120
if f=13 then 130
if f=14 then 140
if f=15 then 150
exit
10:call door_panel_A  a, b, u, j
exit
20:call door_panel_B  a, b, u, v, j
exit
30:call door_panel_C   a, b, u, v, j
exit
40:call door_panel_D   a, b, u, v, j
exit
50:call door_panel_E   a, b, u, v, j
exit
60:call door_panel_FLO  a, b, u, v, j, 1", 2, 2
exit
70:call door_panel_G  a, b, u, v, j
exit
80:call door_panel_H  a, b, u, v, j
exit
90:call door_panel_IM  a, b, u, v, j, 1", 2
exit
100:call door_panel_J  a, b, u, v, e
exit
110:call door_panel_K  a, b, u, v, e
exit
120:call door_panel_FLO  a, b, u, v, j, 1", 2, 4
exit
130:call door_panel_IM  a, b, u, v, j, 1", 3
exit
140:call door_panel_N  a, b, u, v, j
exit
150:call door_panel_FLO  a, b, u, v, j, 1", 3, 6
exit! Door1 w/Transom  /***written by VL 2/24/94/
s=l
j=a/2
m=j-d
l=a-2*d
if c>-0.001 then 1
c=C_
1:
add2 0, c*E~
line2  -j, 0, -m, 0
line2  -j, -c, -m, -c
line2  j, 0, m, 0
line2  j, -c, m, -c
line2  -m, -c, -m, 0
line2  m, -c, m, 0
if s=0 then 3
line2 -m,0,m,0
line2 -m,-c,m,-c
3:if abs (k)>0.1 and i<180.001 and i>-0.001 then 2
i=90
2:
add2 m,0
line2   0, 0, -l*cos(i), l*sin(i)
arc2  0, 0, l, 180-i, 180
HOTSPOT2 -l*cos(i), l*sin(i)
end   L  ffQ>ff?O\)  `      L      `     $      `      `           >\)?O\)        ff    \)           ffQ\)Q       >ff    >\)           >ffQ>\)Q       \)Q\)           >\)Q>\)           >\)    >\)?O\)      < >\)    ?O\)    ?  ?@I>\)?O\)\)$G              {
}       >                                              A  X Dimension                         ?   B  Z Dimension                         @33@   C  Stockstrke  <0-Wandstrke kn.     ?
=   D  Stockbreite en0   @
         ?
=`   E	  Material Glas  GENERAL-kein        @8      F   Fllung Typ  1-15, sonst keine     @      G   Oberlichte Typ 1-2, sonst kein     ?      H  Trhhe  max. B-4*D 4*D   *D       @ ff`   I  ffnungswinkel  0I180 n 2D       @N      J	  Fllungsmaterial  GENERAL-kein     @0      K   ffnungswinkel in 2D  0-nein               N   Schwelle in 2D  0-nein                               